home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / qbfaqr01.zip / TBLINK.BAS < prev    next >
BASIC Source File  |  1992-08-17  |  523b  |  21 lines
  1. DEFINT A-Z
  2.  
  3. '$INCLUDE: 'qb.bi'
  4.  
  5. DECLARE SUB ToggleBlink (Switch%)
  6.  
  7. '***********************************************************************
  8. '* SUB ToggleBlink
  9. '*
  10. '* PURPOSE
  11. '*    Uses BIOS ISR 10H, Service 03H (Toggle Intensify/Blink).
  12. '***********************************************************************
  13. SUB ToggleBlink (Switch%) STATIC
  14.    DIM InRegs AS RegType, OutRegs AS RegType
  15.    Switch% = Switch% AND 1
  16.    InRegs.ax = &H1003
  17.    InRegs.bx = Switch%
  18.    INTERRUPT &H10, InRegs, OutRegs
  19. END SUB
  20.  
  21.